home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol285 / general.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-03-15  |  18.7 KB  |  554 lines
  1. 100  REM GENERAL Program.
  2. 110  REM Documentation.  General Information.
  3. 120  REM Copyright (c) 1983 - 1987 by: Melvin O. Duke.
  4. 130  DATA Genealogy
  5. 140  DATA User's Manual
  6. 150  DATA -5
  7. 160  DATA 1
  8. 170  INDENT = 0
  9. 180  REM Printer Definitions
  10. 190  FORM.FEED$  = CHR$(12)
  11. 200  COMPR.OFF$  = CHR$(18)     : COMPR.ON$ = CHR$(15)
  12. 210  BOLD.OFF$   = CHR$(27)+"F" : BOLD.ON$ = CHR$(27)+"E"
  13. 220  EXPAND.OFF$ = CHR$(18)     : EXPAND.ON$ = CHR$(14)
  14. 230  DASHES$ = "+"+STRING$(54,45)+"+"
  15. 240  TRIM.LINE$ = "(Trim-line)"
  16. 300  REM Program begins here
  17. 310  READ TITLE$, DOC.NAME$, PAGE.NO, LINE.NO
  18. 320  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  19. 330  GOSUB 920  'For trim line and heading space
  20. 340  FOR I = 1 TO 6 : LPRINT : NEXT I
  21. 350  LPRINT BOLD.ON$;     'Set Emphasized mode
  22. 360  LPRINT EXPAND.ON$;   'Set Expanded Print
  23. 370  LPRINT TAB(TAB.POS-1);TITLE$
  24. 380  LPRINT EXPAND.OFF$;  'Return to normal
  25. 390  LPRINT BOLD.OFF$;    'Return to normal
  26. 400  FOR I = 1 TO 3 : LPRINT : NEXT I
  27. 410  LPRINT BOLD.ON$;     'Set Emphasized mode
  28. 420  LPRINT TAB(TAB.POS+12);"ON DISPLAY"
  29. 430  LPRINT BOLD.OFF$;    'Return to normal
  30. 440  LPRINT : LPRINT : LPRINT
  31. 450  LPRINT TAB(TAB.POS+11);"Version 5.0"
  32. 460  FOR I = 1 TO 11 : LPRINT : NEXT I
  33. 470  LPRINT TAB(TAB.POS+10); DOC.NAME$
  34. 480  LINE.NO = LINE.NO + 27
  35. 490  '
  36. 500  READ REPLY$
  37. 510  REM First, change tildes to quotes
  38. 520  FOR Q = 1 TO LEN(REPLY$)
  39. 530   IF MID$(REPLY$,Q,1)="~"THEN MID$(REPLY$,Q,1)=CHR$(34)
  40. 540  NEXT Q
  41. 550  IF LEFT$(REPLY$,1) = "." THEN GOSUB 1270: GOTO 500
  42. 560  IF LINE.NO > 44 THEN GOSUB 1030
  43. 570  REM Print the line if not a command
  44. 580  LPRINT TAB(TAB.POS);REPLY$
  45. 590  LINE.NO = LINE.NO + 1
  46. 600  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  47. 610  GOTO 500
  48. 620  REM Data for the Copyright Page
  49. 630  DATA ".pa"
  50. 640  DATA " "
  51. 750  DATA ".vt 12"
  52. 760  DATA "Users are encouraged to copy and share"
  53. 770  DATA "the programs with others."
  54. 780  DATA ".vt 5"
  55. 790  DATA "If you are using these programs, you are"
  56. 800  DATA "expected to become a Registered User,"
  57. 810  DATA "by making a contribution to the author"
  58. 815  DATA "of the programs ($45.00 suggested)."
  59. 820  DATA ".sp"
  60. 830  DATA "Melvin O. Duke"
  61. 840  DATA "P. O. Box 20836"
  62. 850  DATA "San Jose, CA  95160"
  63. 860  DATA ".vt 4"
  64. 870  DATA "Copyright (c) 1983 through 1987, by:"
  65. 880  DATA "Melvin O. Duke."
  66. 890  DATA ".sp"
  67. 900  DATA "All rights reserved."
  68. 910  '
  69. 920  REM Top of each page routine
  70. 930  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  71. 940  LPRINT
  72. 950  LPRINT TAB(30); TRIM.LINE$
  73. 960  LPRINT DASHES$ 'Dashes
  74. 970  FOR I = 1 TO 6
  75. 980   LPRINT
  76. 990  NEXT I
  77. 1000  LINE.NO = LINE.NO + 6
  78. 1010  RETURN
  79. 1020  '
  80. 1030  REM Bottom of each page Routine
  81. 1040  IF PAGE.NO < 1 THEN LPRINT : LPRINT : LPRINT : GOTO 1160
  82. 1050  LPRINT TAB(TAB.POS); STRING$(40,45)  'on line 46
  83. 1060  LPRINT TAB(TAB.POS+3); TITLE$+" ON DISPLAY.  Version 5.0" 'on line 47
  84. 1070  IF PAGE.NO MOD 2 = 1 THEN 1110
  85. 1080  LPRINT TAB(TAB.POS);"Page";PAGE.NO;
  86. 1090  LPRINT TAB(TAB.POS+27);"User's Manual"
  87. 1100  GOTO 1160
  88. 1110  LPRINT TAB(TAB.POS); "User's Manual";
  89. 1120  IF PAGE.NO < 10 THEN DELTA = 34
  90. 1130  IF PAGE.NO >  9 THEN DELTA = 33
  91. 1140  IF PAGE.NO > 99 THEN DELTA = 32
  92. 1150  LPRINT TAB(TAB.POS+DELTA); "Page"; PAGE.NO  'on line 48
  93. 1160  LPRINT : LPRINT : LPRINT
  94. 1170  LPRINT DASHES$ 'dashes after 51
  95. 1180  LPRINT TAB(30); TRIM.LINE$
  96. 1190  LPRINT FORM.FEED$;
  97. 1200  PAGE.NO = PAGE.NO + 1
  98. 1210  LINE.NO = 1
  99. 1220  IF REPLY$ = ".eof" THEN 1240  'Bypass after last page
  100. 1230  GOSUB 920  'For top of next page
  101. 1240  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  102. 1250  RETURN
  103. 1260  '
  104. 1270  REM Command Processor
  105. 1280  IF LEFT$(REPLY$,3) = ".h1" THEN 1390
  106. 1290  IF LEFT$(REPLY$,3) = ".h2" THEN 1550
  107. 1300  IF LEFT$(REPLY$,3) = ".h3" THEN 1660
  108. 1310  IF LEFT$(REPLY$,3) = ".sp" THEN 1770
  109. 1320  IF LEFT$(REPLY$,4) = ".eof" THEN 1820
  110. 1330  IF LEFT$(REPLY$,3) = ".pa" THEN 1860
  111. 1340  IF LEFT$(REPLY$,3) = ".pn" THEN PAGE.NO = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3)) : RETURN
  112. 1350  IF LEFT$(REPLY$,3) = ".vt" THEN 1930
  113. 1360  IF LEFT$(REPLY$,3) = ".pk" THEN 2040
  114. 1370  IF LEFT$(REPLY$,3) = ".in" THEN 2170
  115. 1380  STOP
  116. 1390  REM Head 1 Processor
  117. 1400  FOR I = LINE.NO TO 44
  118. 1410   LPRINT
  119. 1420  NEXT I
  120. 1430  GOSUB 1030  'Bottom of page Routine
  121. 1440  IF PAGE.NO MOD 2 = 0 THEN GOSUB 1860  'For h1 on Odd pages
  122. 1450  LPRINT BOLD.ON$;     'Set emphasized print
  123. 1460  LPRINT EXPAND.ON$;   'Set expanded print
  124. 1470  IF PAGE.NO MOD 2 = 0 THEN ADJUST = -2 ELSE ADJUST = -5
  125. 1480  LPRINT TAB(TAB.POS+ADJUST); RIGHT$(REPLY$,LEN(REPLY$)-4)
  126. 1490  LPRINT EXPAND.OFF$;  'Return to normal
  127. 1500  LPRINT BOLD.OFF$;    'Return to non-bold
  128. 1510  LINE.NO = LINE.NO+1
  129. 1520  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  130. 1530  RETURN
  131. 1540  '
  132. 1550  REM Head 2 Processor
  133. 1560  IF LINE.NO = 7 THEN 1580 'skip spacing if at top of page
  134. 1570  IF LINE.NO > 43 THEN GOSUB 1860 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  135. 1580  LPRINT BOLD.ON$;  'Set emphasized print
  136. 1590  LPRINT TAB(TAB.POS+1); RIGHT$(REPLY$,LEN(REPLY$)-4)
  137. 1600  LPRINT BOLD.OFF$; 'Return to normal
  138. 1610  LPRINT
  139. 1620  LINE.NO = LINE.NO + 2
  140. 1630  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  141. 1640  RETURN
  142. 1650  '
  143. 1660  REM Head 3 Processor
  144. 1670  IF LINE.NO = 7 THEN 1690 'skip spacing if at top of page
  145. 1680  IF LINE.NO > 43 THEN GOSUB 1860 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  146. 1690  LPRINT BOLD.ON$;  'Set emphasized print
  147. 1700  LPRINT TAB(TAB.POS+1); RIGHT$(REPLY$,LEN(REPLY$)-4)
  148. 1710  LPRINT BOLD.OFF$; 'Return to normal
  149. 1720  LPRINT
  150. 1730  LINE.NO = LINE.NO + 2
  151. 1740  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  152. 1750  RETURN
  153. 1760  '
  154. 1770  REM Single Space Processor
  155. 1780  IF LINE.NO = 7 THEN 1800
  156. 1790  IF LINE.NO > 44 THEN GOSUB 1860 ELSE LPRINT : LINE.NO = LINE.NO + 1
  157. 1800  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  158. 1810  RETURN
  159. 1820  REM End of File Processor
  160. 1830  GOSUB 1860 'Bottom of Page
  161. 1850  GOTO 6570
  162. 1860  REM Page Eject Processor
  163. 1870  FOR I = LINE.NO TO 44
  164. 1880   LPRINT
  165. 1890   LINE.NO = LINE.NO + 1
  166. 1900  NEXT I
  167. 1910  GOSUB 1030  'Bottom of Page Processing
  168. 1920  RETURN
  169. 1930  REM Vertical Tab Processor
  170. 1940  IF LINE.NO = 7 THEN 2030
  171. 1950  IF LINE.NO > 44 THEN GOSUB 1030  'End of page
  172. 1960  QTY = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  173. 1970  FOR I = 1 TO QTY
  174. 1980   LPRINT
  175. 1990   LINE.NO = LINE.NO + 1
  176. 2000   IF LINE.NO > 44 THEN I = QTY
  177. 2010  NEXT I
  178. 2020  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  179. 2030  RETURN
  180. 2040  REM Pack Processor
  181. 2050  IF LINE.NO > 44 THEN GOSUB 1030
  182. 2060  IF TAB.POS = 8 THEN ADJUST = 4
  183. 2070  IF TAB.POS = 13 THEN ADJUST = 7
  184. 2080  TAB.POS = TAB.POS + ADJUST + INDENT
  185. 2090  WIDTH "lpt1:", 132 'set condensed width
  186. 2100  LPRINT COMPR.ON$;  'Packed printing
  187. 2110  LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-3)
  188. 2120  LPRINT COMPR.OFF$; 'Return to normal
  189. 2130  WIDTH "lpt1:", 80  'return to normal
  190. 2140  LINE.NO = LINE.NO + 1
  191. 2150  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  192. 2160  RETURN
  193. 2170  REM Indent Processor
  194. 2180  INDENT = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  195. 2190  RETURN
  196. 3000  DATA ".h1 GENERAL INFORMATION"
  197. 3010  DATA ".pn 9"
  198. 3020  DATA ".h2 DATA ACCESS REQUIREMENT"
  199. 3030  DATA "All of the data files and indexes used"
  200. 3040  DATA "by Genealogy ON DISPLAY are expected to"
  201. 3050  DATA "be available to any of the programs at"
  202. 3060  DATA "the same time.  Also, no data-file or"
  203. 3070  DATA "index can be split across drives."
  204. 3080  DATA ".h2 DESCRIPTION OF FUNCTIONS"
  205. 3090  DATA ".h3 File Formatting."
  206. 3100  DATA "Programs are provided to permit the user"
  207. 3110  DATA "to format one data file which contains"
  208. 3120  DATA "information about persons, another data"
  209. 3130  DATA "file which contains information about"
  210. 3140  DATA "marriages, and a third data file which"
  211. 3150  DATA "contains information about ordinances."
  212. 3160  DATA ".h3 File Maintenance."
  213. 3170  DATA "Programs are provided for the maintenance"
  214. 3180  DATA "of the three data files.  The user is free"
  215. 3190  DATA "to change any information, or to add new"
  216. 3200  DATA "information at any time."
  217. 3210  DATA ".h3 File Indexes."
  218. 3220  DATA "Programs are provided for the formatting"
  219. 3230  DATA "of two indexes, one of which relates"
  220. 3240  DATA "parents and their children, and the other"
  221. 3250  DATA "which relates persons by marriage."
  222. 3260  DATA ".h3 Summary Lists."
  223. 3270  DATA "Programs are provided which will produce"
  224. 3280  DATA "summary lists of the records in the file"
  225. 3290  DATA "which contain the personal information,"
  226. 3300  DATA "or of the records in the file which con-"
  227. 3310  DATA "tain the marriages information."
  228. 3320  DATA ".h3 Detailed Data."
  229. 3330  DATA "One program is provided which will print"
  230. 3340  DATA "either individual records or the entire"
  231. 3350  DATA "contents of the Persons File, together"
  232. 3360  DATA "with the Ordinances File.  A second"
  233. 3370  DATA "program is provided which will print"
  234. 3380  DATA "either individual records or the entire"
  235. 3390  DATA "contents of the Marriages File."
  236. 3400  DATA ".h3 Displaying the Genealogy"
  237. 3410  DATA "Once the data files are as complete as"
  238. 3420  DATA "possible, and the indexes have been"
  239. 3430  DATA "prepared, then the 'Display the Genealogy'"
  240. 3440  DATA "program 'display' can be used to display"
  241. 3450  DATA "the information about a person (including"
  242. 3460  DATA "personal information and church-related"
  243. 3470  DATA "information), an ancestral pedigree, or"
  244. 3480  DATA "the information about a family."
  245. 3490  DATA ".pa
  246. 3500  DATA ".h3 Printing Pedigree Charts"
  247. 3510  DATA "Once the data files are as complete as"
  248. 3520  DATA "possible, and the indexes have been"
  249. 3530  DATA "prepared, then the Pedigree Program"
  250. 3540  DATA "'pedigree' can be used to print the"
  251. 3550  DATA "pedigree chart for any person who is"
  252. 3560  DATA "identified by the user."
  253. 3570  DATA ".h3 Printing Family Group Sheets"
  254. 3580  DATA "Once the data files are as complete as"
  255. 3590  DATA "possible, and the indexes have been"
  256. 3600  DATA "prepared, then the Family Group Program"
  257. 3610  DATA "'family' can be used to print the"
  258. 3620  DATA "family group sheet for any marriage"
  259. 3630  DATA "which is identified by the user."
  260. 3640  DATA ".h3 Producing Descendents Charts"
  261. 3650  DATA "Once the data files are as complete as"
  262. 3660  DATA "possible, and the indexes have been"
  263. 3670  DATA "prepared, then the Descendents Chart"
  264. 3680  DATA "Program 'descend' can be used to"
  265. 3690  DATA "display (and optionally print) a"
  266. 3700  DATA "descendents chart for any person who"
  267. 3710  DATA "is identified by the user."
  268. 3720  DATA ".pa"
  269. 3730  DATA ".h2 DEFINITION OF TERMS"
  270. 3740  DATA ".h3 Personal Information."
  271. 3750  DATA "Personal information is that information"
  272. 3760  DATA "that is unique to a person.  It includes"
  273. 3770  DATA "the person's name, his date of birth, the"
  274. 3780  DATA "location of his birth, and his parents."
  275. 3790  DATA "It also contains (if appropriate) the"
  276. 3800  DATA "same type of information about a person's"
  277. 3810  DATA "death and burial."
  278. 3820  DATA ".h3 Pedigree Information."
  279. 3830  DATA "Pedigree information is that information"
  280. 3840  DATA "which shows the parents, grandparents,"
  281. 3850  DATA "etc., about a person.  It includes the"
  282. 3860  DATA "direct ancestry of the person."
  283. 3870  DATA ".h3 Family Group Information."
  284. 3880  DATA "Family group information is that informa-"
  285. 3890  DATA "tion about a marriage, and the children"
  286. 3900  DATA "of the marriage.  It includes the location"
  287. 3910  DATA "and date of the marriage, as well as"
  288. 3920  DATA "birth-dates, birth-places, and other in-"
  289. 3930  DATA "formation about the children, such as"
  290. 3940  DATA "marriage dates, and names of the spouse"
  291. 3950  DATA "of each child."
  292. 3960  DATA ".pa"
  293. 3970  DATA ".h3 Descendants Information."
  294. 3980  DATA "Descendants information is that infor-"
  295. 3990  DATA "mation about a person, that person's"
  296. 4000  DATA "marriages, that person's children, the"
  297. 4010  DATA "marriages of those children, the child-"
  298. 4020  DATA "ren of those children, etc., etc."
  299. 4030  DATA ".sp"
  300. 4040  DATA "It includes references to each person's"
  301. 4050  DATA "number, each birthdate, each marriage"
  302. 4060  DATA "number, and the date of each marriage."
  303. 4070  DATA ".h2 Ordinance Information."
  304. 4080  DATA "Ordinance information is information"
  305. 4090  DATA "about (LDS) church-related events in a"
  306. 4100  DATA "person's life."
  307. 4110  DATA ".pa"
  308. 4120  DATA ".h2 EXPLANATION OF GENERAL CONCEPTS"
  309. 4130  DATA "Genealogy is concerned with information"
  310. 4140  DATA "about any number of direct ancestors,"
  311. 4150  DATA "reaching backward as many generations"
  312. 4160  DATA "as possible.  It is also concerned with"
  313. 4170  DATA "family groups, with spouses, and with"
  314. 4180  DATA "children within the family groups."
  315. 4190  DATA ".sp"
  316. 4200  DATA "Keeping track of the broad and varied"
  317. 4210  DATA "relationships is a tedious manual task."
  318. 4220  DATA ".sp"
  319. 4230  DATA "Genealogy ON DISPLAY provides the basis"
  320. 4240  DATA "for recording and relating these varied"
  321. 4250  DATA "relationships by utilizing two data"
  322. 4260  DATA "files and two indexes.  The first data"
  323. 4270  DATA "file contains information about persons."
  324. 4280  DATA "The second data file contains informa-"
  325. 4290  DATA "tion about marriages.  The first index"
  326. 4300  DATA "relates parents and their children."
  327. 4310  DATA "The second index relates people with"
  328. 4320  DATA "marriages."
  329. 4330  DATA ".sp"
  330. 4340  DATA "With these two files, and two indexes,"
  331. 4350  DATA "Genealogy ON DISPLAY is able to"
  332. 4360  DATA "associate every person with every other"
  333. 4370  DATA "person, both with parent/child rela-"
  334. 4380  DATA "tionships, and with husband/wife"
  335. 4390  DATA "relationships."
  336. 4400  DATA ".sp"
  337. 4410  DATA "A third data file contains additional"
  338. 4420  DATA "personal information which is church-"
  339. 4430  DATA "related.  It contains all of the LDS"
  340. 4440  DATA "ordinance information about a person."
  341. 4450  DATA ".pa"
  342. 4460  DATA ".h3 persfile"
  343. 4470  DATA "The first data file, named 'persfile',"
  344. 4480  DATA "contains all of the personal information"
  345. 4490  DATA "about an individual.  It also contains a"
  346. 4500  DATA "reference to that person's father and"
  347. 4510  DATA "mother.  Its format and content are:"
  348. 4520  DATA ".sp"
  349. 4530  DATA "Size  Content"
  350. 4540  DATA "----  --------------------------"
  351. 4550  DATA "  5   Record Number for a Person"
  352. 4560  DATA " 20   Surname of person"
  353. 4570  DATA " 30   Given names of person"
  354. 4580  DATA "  2   Sex"
  355. 4590  DATA "  5   Code"
  356. 4600  DATA "  5   Father's Record Number"
  357. 4610  DATA "  5   Mother's Record Number"
  358. 4620  DATA " 11   Birth-date of person"
  359. 4630  DATA " 18   Birth-city"
  360. 4640  DATA " 16   Birth-county"
  361. 4650  DATA " 16   Birth-state or country"
  362. 4660  DATA " 11   Death-date"
  363. 4670  DATA " 18   Death-city"
  364. 4680  DATA " 16   Death-county"
  365. 4690  DATA " 16   Death-state or country"
  366. 4700  DATA " 11   Burial-date"
  367. 4710  DATA " 18   Burial-city"
  368. 4720  DATA " 16   Burial-county"
  369. 4730  DATA " 16   Burial-state or country"
  370. 4740  DATA ".sp"
  371. 4750  DATA "Note: Code is available to the user"
  372. 4760  DATA "for any special user identification,"
  373. 4770  DATA "such as differentiating between"
  374. 4780  DATA "natural parents and adoptive parents."
  375. 4790  DATA "It is unused by the programs."
  376. 4800  DATA ".pa"
  377. 4810  DATA ".h3 marrfile"
  378. 4820  DATA "The second data file, named 'marrfile',"
  379. 4830  DATA "contains all of the records of marriages."
  380. 4840  DATA "Its contents are as follows:"
  381. 4850  DATA ".sp"
  382. 4860  DATA "Size  Content"
  383. 4870  DATA "----  --------------------------"
  384. 4880  DATA "  5   Record Number of the Marriage"
  385. 4890  DATA "  5   Husband's Record-number"
  386. 4900  DATA "  5   Wife's Record-number"
  387. 4910  DATA "  5   Code"
  388. 4920  DATA " 11   Marriage-date"
  389. 4930  DATA " 18   Marriage-city"
  390. 4940  DATA " 16   Marriage-county"
  391. 4950  DATA " 16   Marriage-state or country"
  392. 4960  DATA " 45   Comments"
  393. 4970  DATA ".sp"
  394. 4980  DATA "Note: Code is available to the user"
  395. 4990  DATA "for any special user identification,"
  396. 5000  DATA "such as differentiating between"
  397. 5010  DATA "first and second marriage of spouses."
  398. 5020  DATA "It is unused by the programs."
  399. 5030  DATA ".pa
  400. 5040  DATA ".h3 pcindex"
  401. 5050  DATA "The first index, named 'pcindex',"
  402. 5060  DATA "provides the relationships between"
  403. 5070  DATA "parents and children.  It contains:"
  404. 5080  DATA ".sp"
  405. 5090  DATA "The Number of Records in the Index."
  406. 5100  DATA ".sp"
  407. 5110  DATA "For each index record:"
  408. 5120  DATA "Parent's Record-number, and Child's"
  409. 5130  DATA "Record-number."
  410. 5140  DATA ".sp"
  411. 5150  DATA "Note:  Index records are in sequence"
  412. 5160  DATA "by Child's Birthdate within Parent's"
  413. 5170  DATA "Record-number."
  414. 5180  DATA ".h3 mindex"
  415. 5190  DATA "The second index, named 'mindex',"
  416. 5200  DATA "provides the relationships between"
  417. 5210  DATA "husbands and wives.  It contains:"
  418. 5220  DATA ".sp"
  419. 5230  DATA "The Number of Records in the Index."
  420. 5240  DATA ".sp"
  421. 5250  DATA "For each index record:"
  422. 5260  DATA "Person's Record-number in the Person's"
  423. 5270  DATA "File, followed by the Marriage-number"
  424. 5280  DATA "within the Marriage-file."
  425. 5290  DATA ".sp"
  426. 5300  DATA "Note:  Index records are in sequence"
  427. 5310  DATA "by Marriage-date within the Person's"
  428. 5320  DATA "Record-number."
  429. 5330  DATA ".pa"
  430. 5340  DATA ".h3 ordfile"
  431. 5350  DATA "The third data file, named 'ordfile'"
  432. 5360  DATA "contains all (LDS) church-related"
  433. 5370  DATA "information about an individual,"
  434. 5380  DATA "including all of the ordinance infor-"
  435. 5390  DATA "mation.  Its contents are as follows:"
  436. 5400  DATA "Size  Content"
  437. 5410  DATA "----  --------------------------"
  438. 5420  DATA "  5   Record Number for a Person"
  439. 5430  DATA " 11   Christening Date"
  440. 5440  DATA " 11   Blessing Date"
  441. 5450  DATA " 11   Sealed to Parents Date"
  442. 5460  DATA "  5   Father's Record Number"
  443. 5470  DATA "  5   Mother's Record Number"
  444. 5480  DATA " 11   Baptism Date"
  445. 5490  DATA " 11   Confirmation Date"
  446. 5500  DATA " 11   Patriarchal Blessing Date"
  447. 5510  DATA " 11   Endowment Date"
  448. 5520  DATA " 11   Sealed to Spouse Date"
  449. 5530  DATA "  5   Spouse's Record Number"
  450. 5540  DATA " 11   Aaronic Priesthood Date"
  451. 5550  DATA " 11   Deacon Date"
  452. 5560  DATA " 11   Teacher Date"
  453. 5570  DATA " 11   Priest Date"
  454. 5580  DATA " 11   Melchizedek Priesthood Date"
  455. 5590  DATA " 11   Elder Date"
  456. 5600  DATA " 11   Seventy Date"
  457. 5610  DATA " 11   High Priest Date"
  458. 5620  DATA " 11   Bishop Date"
  459. 5630  DATA " 11   Patriarch Date"
  460. 5640  DATA " 11   Apostle Date"
  461. 5650  DATA " 26   Occupation"
  462. 5660  DATA ".pa"
  463. 5670  DATA ".h3 Relationships."
  464. 5680  DATA "Because of the relationships carried"
  465. 5690  DATA "within the Persons File, pedigree"
  466. 5700  DATA "information may be associated backward"
  467. 5710  DATA "for any number of generations.  There"
  468. 5720  DATA "is no specific limit to the number of"
  469. 5730  DATA "generations that the Genealogy ON"
  470. 5740  DATA "DISPLAY programs will handle."
  471. 5750  DATA ".sp"
  472. 5760  DATA "Because of the indexes, which relate"
  473. 5770  DATA "parents with their children, coupled"
  474. 5780  DATA "with the information in the Marriages"
  475. 5790  DATA "File, and the index to that file, it"
  476. 5800  DATA "is possible to relate any number of"
  477. 5810  DATA "persons together in families, showing"
  478. 5820  DATA "them in chronological order by the"
  479. 5830  DATA "dates of their births."
  480. 5840  DATA ".sp"
  481. 5850  DATA "(Note: there is no specific limit to"
  482. 5860  DATA "the number of families that the"
  483. 5870  DATA "Genealogy ON DISPLAY programs will"
  484. 5880  DATA "handle, other than the total number"
  485. 5890  DATA "of marriages defined.)
  486. 5900  DATA ".pa"
  487. 5910  DATA ".h2 BEFORE YOU START"
  488. 5920  DATA ".h3 List of Persons"
  489. 5930  DATA "Begin by making a numbered list, which"
  490. 5940  DATA "contains the people who will be in your"
  491. 5950  DATA "Persons File."
  492. 5960  DATA ".sp"
  493. 5970  DATA "This may look somewhat like:"
  494. 5980  DATA ".sp"
  495. 5990  DATA "No.  Surname      Given-Names"
  496. 6000  DATA "---  -----------  -----------"
  497. 6010  DATA "  1  ABLE         Melvin Otto"
  498. 6020  DATA "  2  LOVELY       Helen Lillian"
  499. 6030  DATA "  3  ABLE         Melvin Kent"
  500. 6040  DATA "  4  ABLE         Ronald Robert"
  501. 6050  DATA "  5  ABLE         Carolyn Elizabeth"
  502. 6060  DATA "  6  ABLE         Linda Ann"
  503. 6070  DATA "  7  ABLE         Otto"
  504. 6080  DATA "  8  BAKER        Beatrice"
  505. 6090  DATA "etc.  etc.         etc."
  506. 6100  DATA ".pa"
  507. 6110  DATA "Now go back and add the number which you"
  508. 6120  DATA "have assigned, which represents each"
  509. 6130  DATA "person's father and mother, such as:"
  510. 6140  DATA ".sp"
  511. 6150  DATA ".pk No.  Surname      Given-Names        Father  Mother"
  512. 6160  DATA ".pk ---  -----------  -----------        ------  ------"
  513. 6170  DATA ".pk   1  ABLE         Melvin Otto           7       8"
  514. 6180  DATA ".pk   2  LOVELY       Helen Lillian"
  515. 6190  DATA ".pk   3  ABLE         Melvin Kent           1       2"
  516. 6200  DATA ".pk   4  ABLE         Ronald Robert         1       2"
  517. 6210  DATA ".pk   5  ABLE         Carolyn Elizabeth     1       2"
  518. 6220  DATA ".pk   6  ABLE         Linda Ann             1       2"
  519. 6230  DATA ".pk   7  ABLE         Otto"
  520. 6240  DATA ".pk   8  BAKER        Beatrice"
  521. 6250  DATA ".pk etc.  etc.         etc.                etc.    etc."
  522. 6260  DATA ".sp"
  523. 6270  DATA "Note:  This is your master list of"
  524. 6280  DATA "persons. It will continue to grow as you"
  525. 6290  DATA "add more and more names.  After you have"
  526. 6300  DATA "updated the Persons File with these"
  527. 6310  DATA "people, you can produce the list by"
  528. 6320  DATA "selecting the 'listper' program to"
  529. 6330  DATA "be run."
  530. 6340  DATA ".pa"
  531. 6350  DATA ".h3 List of Marriages"
  532. 6360  DATA "Now make a second numbered list.  Enter"
  533. 6370  DATA "the record-numbers of the persons who"
  534. 6380  DATA "are married.  This may appear as:"
  535. 6390  DATA ".sp"
  536. 6400  DATA "Marriage     Husband's   Wife's"
  537. 6410  DATA "Number       Record-no.  Record-no."
  538. 6420  DATA "--------     ----------  ----------"
  539. 6430  DATA "  1            1           2"
  540. 6440  DATA "  2            7           8"
  541. 6450  DATA " etc.         etc.        etc."
  542. 6460  DATA ".sp"
  543. 6470  DATA "If you find it convenient, you may also"
  544. 6480  DATA "want to include names in this list."
  545. 6490  DATA ".sp"
  546. 6500  DATA "Note:  This is your master list of"
  547. 6510  DATA "marriages. It will continue to grow as"
  548. 6520  DATA "you add more and more marriages.  After"
  549. 6530  DATA "you have updated the Marriages File,"
  550. 6540  DATA "you can produce the list by selecting"
  551. 6550  DATA "the 'listmar' program to be run."
  552. 6560  DATA ".eof"
  553. 6570  END
  554.